CAADate_GregorianToJulian <-
function(Year, Month, Day){
.Call("CAADate_GregorianToJulian", Year, Month, Day)
}
